home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS073.dsk / ART DRIFTING OCTAGON.bas < prev    next >
BASIC Source File  |  2012-02-16  |  520b  |  27 lines
  1. 1  REM DRIFTING OCTAGON
  2. 4  FOR J = 768 TO 782: READ I: POKE J,I: NEXT 
  3. 6  DATA  3,0,8,0,11,0,13,0,36,36,0,128,0,16,0
  4. 8  POKE 232,0: POKE 233,3
  5. 10  HGR 
  6. 20  POKE 49234,0
  7. 21 :
  8. 25  HCOLOR= 4: HPLOT 0,0: CALL 62454
  9. 27  HCOLOR= 0
  10. 28  FOR Z = 0 TO 95: HPLOT 140,Z TO 279,Z: NEXT 
  11. 29  FOR Z = 96 TO 191: HPLOT 0,Z TO 139,Z: NEXT 
  12. 30 :
  13. 35  HPLOT 95,95
  14. 50  ROT= 8
  15. 65  SCALE= 1
  16. 70  DRAW 2: DRAW 2
  17. 80  GOSUB 100
  18. 90  GOTO 50
  19. 98  END 
  20. 99 :
  21. 100  REM 
  22. 101  SCALE= 1
  23. 105  FOR I = 1 TO 64
  24. 115  ROT= I
  25. 120  XDRAW 1
  26. 130  NEXT 
  27. 200  RETURN